home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGOSRC.ARC / STUNPACK.ASM < prev    next >
Encoding:
Assembly Source File  |  1985-11-20  |  1.6 KB  |  77 lines
  1.  
  2. ;    :ts=12
  3.  
  4.  
  5.     ;unpack_screen(s, d, linebytes, planes, lines)
  6.     public _unpack_screen
  7. _unpack_screen
  8. upregs    reg    a0/a1/a2/a3/a4/a5/d1/d2/d3/d4/d5/d6/d7
  9. firstp    set    4+4*13
  10. s    set    firstp
  11. d    set    firstp+4
  12. linebytes    set    firstp+8
  13. planes    set    firstp+10
  14. lines    set    firstp+12
  15.     movem.l    upregs,-(sp) ;save the world!
  16.     move.l    s(sp),a0
  17.     move.l    d(sp),a5
  18.     move.w    linebytes(sp),d7
  19.     move.w    planes(sp),d6
  20.     move.w    lines(sp),d5
  21.     sub.w    d7,sp    ;make us a buffer
  22.     move.l    sp,a3
  23.     add.w    d7,a3    ;point a3 to end of buffer
  24.     move.w    d6,d4
  25.     add.w    d4,d4    ;next word in d4
  26.     move.w    d6,d3
  27.     mulu    d7,d3    ;next line in d3
  28.  
  29.  
  30.     bra     zloop1
  31. loop1
  32.     move.l    a5,a4; start of this line of screen
  33.     move.w    d6,d2; plane count in d3
  34.     bra    zloop2
  35. loop2
  36.  
  37. ;get ready to un-run-length encode one line of one bitplane
  38.     move.l    sp,a1
  39. oploop    clr.w    d1    
  40.     move.b    (a0)+,d1    ;get next op
  41.     bmi    repeatop    ;if it's minus repeat value...
  42. opcplp    move.b    (a0)+,(a1)+    ;if it's plus copy data (op+1) times
  43.     dbra    d1,opcplp
  44.     cmp.l    a3,a1    ;go until run out of line buffer
  45.     blt    oploop
  46.     bra    zoploop
  47. repeatop    neg.b    d1
  48.     move.b    (a0)+,d0
  49. oprptlp    move.b    d0,(a1)+
  50.     dbra    d1,oprptlp
  51.     cmp.l    a3,a1    ;go until run out of line buffer
  52.     blt    oploop
  53. zoploop    
  54.  
  55. ;Now do that interleave for the twisted ST screen, copying from little
  56. ;line buffer on stack to the screen itself.
  57.     move.l    sp,a1
  58.     move.l    a4,a2
  59.     move.w    d7,d0
  60.     lsr.w    #1,d0
  61.     bra     zurvloop
  62. urvloop    move.w    (a1)+,(a2)
  63.     add.w    d4,a2
  64. zurvloop    dbra    d0,urvloop
  65.     add.w    #2,a4    ;go to next plane of dest
  66. zloop2    dbra    d2,loop2
  67.     add.w    d3,a5
  68. zloop1    dbra    d5,loop1
  69.  
  70.     add.w    d7,sp    ;buffer off of stack.
  71.  
  72.     movem.l    (sp)+,upregs
  73.     rts
  74.  
  75.  
  76.  
  77.